home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / WideStereo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-16  |  596 b   |  29 lines
  1. /* SFX WideStereo */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SFX_GetChannels buf1
  10.     cha=RESULT
  11.     IF cha=1 THEN DO
  12.         SFX_SelOperator 'ConvertChannels'
  13.         SFX_SetOperatorPreset 'ConvertChannels' 'MonoToWideStereo'
  14.         SFX_ProcessSample buf1
  15.         IF RC=0 THEN buf1=RESULT
  16.         ELSE buf1=-2
  17.         IF buf1>-1 THEN DO
  18.             SFX_RedrawBuffer buf1
  19.             SFX_SetActiveBuffer buf1
  20.             SFX_CleanUp 0
  21.         END
  22.         ELSE SFX_Message '"Operator ConvertChannels failed !"'
  23.     END
  24.     ELSE SFX_Message '"Mono source required !"'
  25. END
  26. ELSE SFX_Message '"No sample to operate on !"'
  27. SFX_Activate
  28. EXIT
  29.